DIMENSION I(80),JJ(10)
	EQUIVALENCE (I,JJ)
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
	K=80
3	FORMAT(A10)
4	FORMAT(A5)
	DOUBLE PRECISION NAM1
	TYPE 1
	ACCEPT 3,NAM1
	CALL DEFINE(1,NNN,0,NAM1)
	TYPE 2
	ACCEPT 4,NAM2
	CALL OFILE(21,NAM2)
5	FORMAT(80A1)
6	READ(1,5)I
	TYPE 5,JJ
	CALL SHORT(I,K)
	TYPE 7
7	FORMAT(' START HERE?  '$)
	ACCEPT 4,L
	IF(L.EQ.'Y')GO TO 10
	CALL WRITER(I,K)
	GO TO 6
8	READ(1,5,END=9)I
	CALL SHORT(I,K)
10	CALL CNVRT(I,K)
	IF(K.GT.0)CALL WRITER(I,K)
	GO TO 8
9	END

	SUBROUTINE SHORT(I,K)
	DIMENSION I(80)
	DO 3 K=80,1,-1
3	IF(I(K).NE.' ')RETURN
	K=1
	END

	SUBROUTINE CNVRT(I,K)
	DIMENSION I(80)
4	I(1)='	'
	DO 10 L=2,K
	IF(I(L).EQ.';')GO TO 11
10	CONTINUE
	K=-1
	RETURN
11	N=1
	DO 12 M=L+1,K
	N=N+1
12	I(N)=I(M)
	K=N
	END

	SUBROUTINE WRITER(I,K)
	DIMENSION I(1)
1	FORMAT(80A1)
	WRITE(21,1)(I(J),J=1,K)
	END